perm filename COLLEC[1,LMM] blob sn#031677 filedate 1973-03-25 generic text, type T, neo UTF8
  (PROGN (LISPXPRIN1 (QUOTE "FILE CREATED ")
                     T)
         (LISPXPRIN1 (QUOTE "25-MAR-73 06:20:43")
                     T)
         (LISPXTERPRI T))
  (LISPXPRINT (QUOTE COLLECTVARS)
              T)
  [RPAQQ COLLECTVARS ((FNS COLLECT LISTFILE SAVE CGQ LISTFILES)
          (VARS (CURRENTFILE)
                (HOST))
          (ADVISE DEFINE LOAD UNBREAK0)
          [P (RELINK (QUOTE (UNBREAK]
          [P (COND ((NOT (GETD (QUOTE FILECREATED)))
                    (/PUTD (QUOTE FILECREATED)
                           (QUOTE (LAMBDA (STR)
                                          (LISPXPRIN1 "FILE CREATED " T)
                                          (LISPXPRIN1 STR T)
                                          (LISPXTERPRI T]
          (P (MOVD (QUOTE LISPXPRINT)
                   (QUOTE LISPXPRINTDEF]
(DEFINEQ

(COLLECT
  [LAMBDA (FILE)
    (/SET (QUOTE CURRENTFILE)
          FILE)
    (AND FILE
         (PROGN (AND (NOT (FMEMB FILE FILELST))
                     (/SET (QUOTE FILELST)
                           (CONS FILE FILELST)))
                [OR (EQ (CAAAR (SETQ FILE (FILEVARS FILE)))
                        (QUOTE FNS))
                    (/SET FILE (CONS (LIST (QUOTE FNS))
                                     (COND
                                       [(EQ (CAR FILE)
                                            (QUOTE NOBIND))
                                         (LIST (LIST (QUOTE VARS]
                                       (T (CAR FILE]
                CURRENTFILE])

(LISTFILE
  [LAMBDA (FIL LFHOST LFLOGIN)
    (BKSYSBUF (CONCAT "FTP
" [SETQ LFHOST (OR LFHOST HOST (SETQ HOST (PROGN (PRIN1 "HOST? ")
                                                 (READ T]
                      "
LOG "
                      [OR LFLOGIN (GETP LFHOST (QUOTE LOGIN))
                          (PUT LFHOST (QUOTE LOGIN)
                               (PROGN (PRIN1 LFHOST T)
                                      (PRIN1 " LOGIN? " T)
                                      (READ T]
                      "
TE
SE " FIL "≠
≠DIS
QUI
QUI
"))
    (KFORK (SUBSYS])

(SAVE
  [LAMBDA NIL
    (AND (NLISTP (SYSOUT (QUOTE LARRY)))
         (PROG1 (DELFILE (QUOTE LARRY))
                (TENEX "EXP
"])

(CGQ
  [NLAMBDA (FN)
    (COPY (GETD FN])

(LISTFILES
  [LAMBDA (FILLST)
    [COND
      ((NULL FILLST)
        (SETQ FILLST NOTLISTEDFILES))
      ((NLISTP FILLST)
        (SETQ FILLST (CONS FILLST]
    (MAPCAR FILLST (FUNCTION (LAMBDA (FIL)
                (PROG1 (LISTFILE FIL)
                       (SETQ NOTLISTEDFILES (DREMOVE FIL NOTLISTEDFILES]
)
)
  (RPAQ CURRENTFILE)
  (RPAQ HOST)
(DEFLIST(QUOTE(
  [DEFINE
    (NIL (AFTER NIL
                (AND CURRENTFILE
                     (MAPC !VALUE
                           (FUNCTION
                             (LAMBDA (X)
                                     (/NCONC1
                                       (/DREMOVE X (CAAR (FILEVARS
                                                           CURRENTFILE))
                                                 )
                                       X]
  [LOAD (NIL (BIND NIL ((CURRENTFILE]
  [UNBREAK0 (NIL (AFTER NIL (SETQ LASTWORD FN]
))(QUOTE READVICE))

  (READVISE DEFINE LOAD UNBREAK0)
  (RELINK (QUOTE (UNBREAK)))
  [COND ((NOT (GETD (QUOTE FILECREATED)))
         (/PUTD (QUOTE FILECREATED)
                (QUOTE (LAMBDA (STR)
                               (LISPXPRIN1 "FILE CREATED " T)
                               (LISPXPRIN1 STR T)
                               (LISPXTERPRI T]
  (MOVD (QUOTE LISPXPRINT)
        (QUOTE LISPXPRINTDEF))
STOP